Chip 1998 September/CHIP Eylül 1998.iso/demolar/lokman/DISK1/_SETUP.4/Group1/Demo8E.exe/0/RCDATA/TISLETIMFORM/TISLETIMFORM.txt

Text File | 1998-07-30 | 18KB | 679 lines

object IsletimForm: TIsletimForm
  Left = 0
  Top = 45
  Width = 638
  Height = 410
  ActiveControl = DBGrid1
  Caption = 'PROGRAM ��LET�M B�LG�LER�'
  Font.Color = clBlack
  Font.Height = -11
  Font.Name = 'Arial'
  Font.Style = [fsBold]
  Position = poScreenCenter
  OnClose = FormClose
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 14
  object PanelISL: TPanel
    Left = 0
    Top = 0
    Width = 630
    Height = 383
    Align = alClient
    BevelInner = bvLowered
    BorderWidth = 4
    Caption = 'PanelISL'
    Color = 4210688
    TabOrder = 0
    object Label3: TLabel
      Left = 370
      Top = 352
      Width = 106
      Height = 14
      Caption = 'Yaz�c� Sol Marj (cm)'
      Font.Color = clWhite
      Font.Height = -11
      Font.Name = 'Arial Tur'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object DBGrid1: TDBGrid
      Left = 6
      Top = 6
      Width = 618
      Height = 284
      Align = alTop
      Color = clSilver
      DataSource = DataSource1
      Font.Color = clBlack
      Font.Height = -12
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 0
      TitleFont.Color = clNavy
      TitleFont.Height = -11
      TitleFont.Name = 'Arial'
      TitleFont.Style = [fsBold]
    end
    object BitBtn1: TBitBtn
      Left = 536
      Top = 347
      Width = 75
      Height = 27
      Font.Color = clNavy
      Font.Height = -12
      Font.Name = 'Arial Tur'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 6
      Kind = bkClose
    end
    object BtnICERIK: TBitBtn
      Left = 98
      Top = 347
      Width = 75
      Height = 27
      Caption = '��eri&k'
      Font.Color = clNavy
      Font.Height = -12
      Font.Name = 'Arial Tur'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 2
      OnClick = BtnICERIKClick
      Glyph.Data = {
        78010000424D7801000000000000760000002800000020000000100000000100
        04000000000000000000120B0000120B00000000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        333333333333FF3333333333333C0C333333333333F777F3333333333CC0F0C3
        333333333777377F33333333C30F0F0C333333337F737377F333333C00FFF0F0
        C33333F7773337377F333CC0FFFFFF0F0C3337773F33337377F3C30F0FFFFFF0
        F0C37F7373F33337377F00FFF0FFFFFF0F0C7733373F333373770FFFFF0FFFFF
        F0F073F33373F333373730FFFFF0FFFFFF03373F33373F333F73330FFFFF0FFF
        00333373F33373FF77333330FFFFF000333333373F333777333333330FFF0333
        3333333373FF7333333333333000333333333333377733333333333333333333
        33333333333333333333333333333333333333333333333333330000}
      NumGlyphs = 2
    end
    object BitBtnYAZ: TBitBtn
      Left = 183
      Top = 347
      Width = 75
      Height = 27
      Caption = '&Yaz�c�'
      Font.Color = clNavy
      Font.Height = -12
      Font.Name = 'Arial Tur'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 3
      OnClick = BitBtnYAZClick
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000130B0000130B00000000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300000000000
        00033FFFFFFFFFFFFFFF0888888888888880777777777777777F088888888888
        8880777777777777777F0000000000000000FFFFFFFFFFFFFFFF0F8F8F8F8F8F
        8F80777777777777777F08F8F8F8F8F8F9F0777777777777777F0F8F8F8F8F8F
        8F807777777777777F7F0000000000000000777777777777777F3330FFFFFFFF
        03333337F3FFFF3F7F333330F0000F0F03333337F77773737F333330FFFFFFFF
        03333337F3FF3FFF7F333330F00F000003333337F773777773333330FFFF0FF0
        33333337F3FF7F3733333330F08F0F0333333337F7737F7333333330FFFF0033
        33333337FFFF7733333333300000033333333337777773333333}
      NumGlyphs = 2
    end
    object BitBtn4: TBitBtn
      Left = 270
      Top = 347
      Width = 93
      Height = 27
      Caption = 'Yaz� &Fontu'
      Font.Color = clNavy
      Font.Height = -12
      Font.Name = 'Arial Tur'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 4
      OnClick = BitBtn4Click
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000130B0000130B00000000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        3333333333333333333333333333333333333FF3FFFFFFF33FFF003000000033
        0000773777777733777703330033033330037FFF77F37F33377F700007330333
        3003777777337FFFF77F303003337000007337F77F3377777773303073333033
        003337F77F3337F377F337007333303300333777733337FF77F3330033333703
        07333377F333377F7733330733333300033333773FF3F3777F33333399393300
        033333337737FF777F333333339993307333333333777FF77333333333999930
        3333333333777737333333333333333333333333333333333333333333333333
        3333333333333333333333333333333333333333333333333333}
      NumGlyphs = 2
    end
    object BitBtn5: TBitBtn
      Left = 13
      Top = 347
      Width = 75
      Height = 27
      Caption = '&Sil'
      Font.Color = clNavy
      Font.Height = -12
      Font.Name = 'Arial Tur'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 1
      OnClick = BitBtn5Click
      Glyph.Data = {
        78010000424D7801000000000000760000002800000020000000100000000100
        04000000000000000000120B0000120B00000000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555
        55555FFFFFFF5F55FFF5777777757559995777777775755777F7555555555550
        305555555555FF57F7F555555550055BB0555555555775F777F55555550FB000
        005555555575577777F5555550FB0BF0F05555555755755757F555550FBFBF0F
        B05555557F55557557F555550BFBF0FB005555557F55575577F555500FBFBFB0
        B05555577F555557F7F5550E0BFBFB00B055557575F55577F7F550EEE0BFB0B0
        B05557FF575F5757F7F5000EEE0BFBF0B055777FF575FFF7F7F50000EEE00000
        B0557777FF577777F7F500000E055550805577777F7555575755500000555555
        05555777775555557F55550005555555055555777555555575550000}
      NumGlyphs = 2
    end
    object SpinEdit1: TSpinEdit
      Left = 481
      Top = 348
      Width = 44
      Height = 23
      MaxLength = 25
      MaxValue = 0
      MinValue = 0
      TabOrder = 5
      Value = 0
    end
    object RadioGroup1: TRadioGroup
      Left = 100
      Top = 294
      Width = 512
      Height = 46
      Caption = 'SADECE A�A�IDA ��ARETL� OLANI G�STER'
      Color = clSilver
      Columns = 5
      ItemIndex = 0
      Items.Strings = (
        'T�m�n�'
        'Miktar De�i�.'
        'Re�. D�zeltme'
        'Prk.Sat.Dzlt'
        'Prk.Fat.D�zelt'
        'Al��.Fat.Dzlt.'
        'Veresiye. Dzlt'
        'Krm.Fat.Dzlt.'
        'Sat�� Silindi.')
      ParentColor = False
      TabOrder = 7
      OnClick = RadioGroup1Click
    end
  end
  object PanelICER: TPanel
    Left = 11
    Top = 47
    Width = 605
    Height = 127
    BevelInner = bvLowered
    BevelWidth = 2
    BorderWidth = 1
    Color = clTeal
    TabOrder = 1
    Visible = False
    object DBGridICERIK: TDBGrid
      Left = 6
      Top = 7
      Width = 524
      Height = 111
      DataSource = HrkSRC
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
      ReadOnly = True
      TabOrder = 0
      TitleFont.Color = clRed
      TitleFont.Height = -11
      TitleFont.Name = 'Arial'
      TitleFont.Style = [fsBold]
    end
    object BitBtn2: TBitBtn
      Left = 539
      Top = 93
      Width = 57
      Height = 24
      Caption = '&Tamam'
      Default = True
      Font.Color = clNavy
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 1
      OnClick = BitBtn2Click
      Layout = blGlyphTop
      NumGlyphs = 2
    end
  end
  object PanelSIL: TPanel
    Left = 9
    Top = 248
    Width = 169
    Height = 95
    BevelInner = bvLowered
    BevelWidth = 2
    Color = clNavy
    TabOrder = 2
    Visible = False
    object Label1: TLabel
      Left = 20
      Top = 9
      Width = 123
      Height = 15
      Caption = 'Silinecek Tarih Aral���'
      Font.Color = clWhite
      Font.Height = -12
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object MaskEdit1: TMaskEdit
      Left = 8
      Top = 30
      Width = 68
      Height = 22
      EditMask = '!90/90/9900;1;_'
      MaxLength = 10
      TabOrder = 0
      Text = '  .  .    '
      OnExit = MaskEdit1Exit
    end
    object MaskEdit2: TMaskEdit
      Left = 87
      Top = 30
      Width = 68
      Height = 22
      EditMask = '!90/90/9900;1;_'
      MaxLength = 10
      TabOrder = 1
      Text = '  .  .    '
      OnExit = MaskEdit1Exit
    end
    object ButtonTAM: TButton
      Left = 8
      Top = 59
      Width = 70
      Height = 24
      Caption = '&Tamam'
      TabOrder = 2
      OnClick = ButtonTAMClick
    end
    object ButtonVAZ: TButton
      Left = 87
      Top = 59
      Width = 70
      Height = 24
      Caption = '&Vazge�'
      TabOrder = 3
      OnClick = ButtonVAZClick
    end
  end
  object DataSource1: TDataSource
    DataSet = Query1
    OnDataChange = DataSource1DataChange
    Left = 223
    Top = 13
  end
  object Query1: TQuery
    DatabaseName = 'ECZ'
    Params.Data = {
      010002000442547268000B080000002C845D40CB4201000453547268000B0800
      00002C845D40CB420100}
    SQL.Strings = (
      'SELECT'
      '*FROM PROSES'
      'WHERE (TARIH>=:BTrh) AND'
      '(TARIH<=:STrh)'
      'ORDER BY TARIH')
    Left = 256
    Top = 8
    object Query1TARIH: TDateTimeField
      DisplayLabel = 'TAR�H'
      DisplayWidth = 16
      FieldName = 'TARIH'
      DisplayFormat = 'dd/mm/yy (hh:nn)'
    end
    object Query1ACIKLA: TStringField
      DisplayLabel = 'A�IKLAMA'
      DisplayWidth = 27
      FieldName = 'ACIKLA'
      Size = 36
    end
    object Query1ISLETIPI: TStringField
      DisplayLabel = '��LET�M T�P�'
      DisplayWidth = 15
      FieldName = 'ISLETIPI'
      Size = 15
    end
    object Query1FIYAT: TCurrencyField
      DisplayLabel = 'F�YATI'
      DisplayWidth = 13
      FieldName = 'FIYAT'
    end
    object Query1MIKTAR: TIntegerField
      DisplayLabel = 'M�KTAR'
      DisplayWidth = 6
      FieldName = 'MIKTAR'
    end
    object Query1TUTAR: TCurrencyField
      DisplayWidth = 16
      FieldName = 'TUTAR'
    end
    object Query1ISLETNO: TFloatField
      Alignment = taLeftJustify
      DisplayLabel = '��LET�M NO'
      DisplayWidth = 19
      FieldName = 'ISLETNO'
      OnGetText = Query1ISLETNOGetText
    end
  end
  object SatisTab: TTable
    BeforeOpen = SatisTabBeforeOpen
    AfterClose = SatisTabAfterClose
    OnCalcFields = SatisTabCalcFields
    DatabaseName = 'ECZ'
    IndexFieldNames = 'SATISNO;SIRANOURUN'
    MasterFields = 'ISLETNO'
    MasterSource = DataSource1
    ReadOnly = True
    TableName = 'SATIS.DB'
    Left = 32
    Top = 40
    object SatisTabILACNO: TIntegerField
      Alignment = taLeftJustify
      DisplayLabel = '�la� Ad�'
      DisplayWidth = 36
      FieldName = 'ILACNO'
      OnGetText = SatisTabILACNOGetText
    end
    object SatisTabFIYAT: TCurrencyField
      DisplayLabel = 'Fiyat�'
      DisplayWidth = 13
      FieldName = 'FIYAT'
    end
    object SatisTabMIKTAR: TIntegerField
      DisplayLabel = 'Mik.'
      DisplayWidth = 4
      FieldName = 'MIKTAR'
    end
    object SatisTabTUTARI: TCurrencyField
      Calculated = True
      DisplayWidth = 16
      FieldName = 'TUTARI'
    end
    object SatisTabSATISNO: TFloatField
      FieldName = 'SATISNO'
      Visible = False
    end
  end
  object SatisSRC: TDataSource
    DataSet = SatisTab
    Left = 48
    Top = 40
  end
  object RecTab: TTable
    BeforeOpen = RecTabBeforeOpen
    AfterClose = RecTabAfterClose
    DatabaseName = 'ECZ'
    IndexFieldNames = 'FATNO'
    MasterFields = 'ISLETNO'
    MasterSource = DataSource1
    ReadOnly = True
    TableName = 'RECETE.DB'
    Left = 24
    Top = 72
    object RecTabSATISNO: TFloatField
      FieldName = 'SATISNO'
      Visible = False
    end
    object RecTabHASTANO: TIntegerField
      Alignment = taLeftJustify
      DisplayLabel = 'Hasta Ad�'
      DisplayWidth = 28
      FieldName = 'HASTANO'
      OnGetText = RecTabHASTANOGetText
    end
    object RecTabNET: TCurrencyField
      DisplayLabel = 'Tutar'
      DisplayWidth = 16
      FieldName = 'NET'
    end
    object RecTabALTARIH: TDateField
      DisplayLabel = 'Aln.Trh'
      DisplayWidth = 8
      FieldName = 'ALTARIH'
      DisplayFormat = 'dd/mm/yy'
    end
    object RecTabFATARIH: TDateField
      DisplayLabel = 'Fat.Trh.'
      DisplayWidth = 8
      FieldName = 'FATARIH'
      DisplayFormat = 'dd/mm/yy'
    end
    object RecTabFATURANO: TStringField
      DisplayLabel = 'FATURA NO'
      FieldName = 'FATURANO'
      Size = 11
    end
    object RecTabFATNO: TFloatField
      FieldName = 'FATNO'
      Visible = False
    end
  end
  object HrkTab: TTable
    BeforeOpen = RecTabBeforeOpen
    AfterOpen = HrkTabAfterOpen
    AfterClose = RecTabAfterClose
    DatabaseName = 'ECZ'
    IndexFieldNames = 'HAREKNO'
    MasterFields = 'ISLETNO'
    MasterSource = DataSource1
    ReadOnly = True
    TableName = 'HAREKET.DB'
    Left = 24
    Top = 96
    object HrkTabHAREKNO: TFloatField
      DisplayWidth = 10
      FieldName = 'HAREKNO'
      Visible = False
    end
    object HrkTabCARIKOD: TStringField
      DisplayLabel = 'CAR� HESAP ADI'
      DisplayWidth = 21
      FieldName = 'CARIKOD'
      OnGetText = HrkTabCARIKODGetText
      Size = 11
    end
    object HrkTabBILGI: TStringField
      DisplayLabel = 'A�IKLAMA'
      DisplayWidth = 28
      FieldName = 'BILGI'
      Size = 36
    end
    object HrkTabALACAK: TCurrencyField
      DisplayWidth = 15
      FieldName = 'ALACAK'
      Visible = False
    end
    object HrkTabBORC: TCurrencyField
      DisplayLabel = 'BOR�'
      DisplayWidth = 15
      FieldName = 'BORC'
    end
    object HrkTabTARIH: TDateField
      DisplayLabel = 'Tarih'
      DisplayWidth = 8
      FieldName = 'TARIH'
      DisplayFormat = 'dd/mm/yy'
    end
  end
  object RecSRC: TDataSource
    DataSet = RecTab
    Left = 56
    Top = 72
  end
  object HrkSRC: TDataSource
    DataSet = HrkTab
    Left = 56
    Top = 104
  end
  object UrunBak: TTable
    DatabaseName = 'ECZ'
    ReadOnly = True
    TableName = 'URUN.DB'
    Left = 200
    Top = 96
    object UrunBakILACNO: TIntegerField
      FieldName = 'ILACNO'
    end
    object UrunBakILACAD: TStringField
      FieldName = 'ILACAD'
      Required = True
      Size = 36
    end
  end
  object HastaTab: TTable
    DatabaseName = 'ECZ'
    TableName = 'HASTA.DB'
    Left = 240
    Top = 96
    object HastaTabHASTANO: TIntegerField
      FieldName = 'HASTANO'
    end
    object HastaTabHASTADI: TStringField
      FieldName = 'HASTADI'
      Size = 18
    end
    object HastaTabHASTASOYAD: TStringField
      FieldName = 'HASTASOYAD'
      Size = 18
    end
  end
  object AlisTab: TTable
    BeforeOpen = SatisTabBeforeOpen
    AfterClose = SatisTabAfterClose
    DatabaseName = 'ECZ'
    IndexFieldNames = 'ALISNO'
    MasterFields = 'ISLETNO'
    MasterSource = DataSource1
    ReadOnly = True
    TableName = 'ALIS3.DB'
    Left = 48
    Top = 136
    object AlisTabALISNO: TFloatField
      FieldName = 'ALISNO'
      Visible = False
    end
    object AlisTabSIRANOILAC: TIntegerField
      DisplayLabel = 'S.N.'
      DisplayWidth = 5
      FieldName = 'SIRANOILAC'
    end
    object AlisTabILACNO: TIntegerField
      DisplayLabel = '�r�n Ad�'
      DisplayWidth = 25
      FieldName = 'ILACNO'
      OnGetText = SatisTabILACNOGetText
    end
    object AlisTabFIYAT: TCurrencyField
      DisplayLabel = 'Fiyat'
      DisplayWidth = 15
      FieldName = 'FIYAT'
    end
    object AlisTabMIKTAR: TIntegerField
      DisplayLabel = 'Adet'
      DisplayWidth = 4
      FieldName = 'MIKTAR'
    end
    object AlisTabALISTARIH: TDateTimeField
      DisplayLabel = 'Al.Trh.'
      DisplayWidth = 8
      FieldName = 'ALISTARIH'
      DisplayFormat = 'dd/mm/yy'
    end
    object AlisTabMALFAZLA: TSmallintField
      DisplayLabel = 'Mal.F.'
      DisplayWidth = 6
      FieldName = 'MALFAZLA'
    end
  end
  object AlisSRC: TDataSource
    DataSet = AlisTab
    Left = 104
    Top = 144
  end
  object QSIL: TQuery
    DatabaseName = 'ECZ'
    Params.Data = {
      010002000753696C54726842000B0800000000000000000000000753696C5472
      6853000B080000000000000000000000}
    SQL.Strings = (
      'DELETE FROM PROSES'
      'WHERE (TARIH>=:SilTrhB) AND'
      '(TARIH<=:SilTrhS)')
    Left = 56
    Top = 240
  end
  object FontDialog1: TFontDialog
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'Courier New Tur'
    Font.Style = []
    Device = fdBoth
    MinFontSize = 0
    MaxFontSize = 0
    Options = [fdEffects, fdFixedPitchOnly]
    Left = 400
    Top = 256
  end
  object PrintDialog1: TPrintDialog
    Left = 272
    Top = 256
  end
  object FontTab: TTable
    DatabaseName = 'ECZ'
    TableName = 'FONT.DB'
    Left = 336
    Top = 264
    object FontTabBIRIM: TStringField
      FieldName = 'BIRIM'
      Size = 9
    end
    object FontTabFONTADI: TStringField
      FieldName = 'FONTADI'
      Size = 35
    end
    object FontTabFONTSIZE: TSmallintField
      FieldName = 'FONTSIZE'
    end
    object FontTabCOLOR: TIntegerField
      FieldName = 'COLOR'
    end
    object FontTabSTYLE: TStringField
      FieldName = 'STYLE'
      Size = 1
    end
    object FontTabMARJIN: TSmallintField
      FieldName = 'MARJIN'
    end
  end
end